home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
bbs
/
pcsuni1.zip
/
LOPBK505.ZIP
/
LBKMOD4.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1997-03-25
|
34KB
|
1,448 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Boolean BOOLEAN003
Boolean BOOLEAN004
Boolean BOOLEAN005
Boolean BOOLEAN006
Boolean BOOLEAN007
Boolean TBOOLEAN008(4)
Boolean TBOOLEAN009(3)
Boolean BOOLEAN010
Boolean BOOLEAN011
Boolean BOOLEAN012
Boolean BOOLEAN013
Boolean BOOLEAN014
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String TSTRING011(11)
Byte BYTE001
Byte BYTE002
Byte BYTE003
Byte BYTE004
Byte BYTE005
Byte BYTE006
Byte BYTE007
Byte BYTE008
Byte BYTE009
Byte BYTE010
Byte TBYTE011(1)
Byte BYTE012
Byte BYTE013
Byte BYTE014
Word WORD001
Word WORD002
Word WORD003
Word WORD004
Word WORD005
Int INT001
;------------------------------------------------------------------------------
Gosub LABEL001
Goto LABEL027
:LABEL001
BOOLEAN004 = 1
If (Exist(PPEPath() + "LBKBACK.XXX")) Then
FOpen 2, PPEPath() + "LBKBACK.XXX", 2, 2
If (Ferr(2)) Then
BOOLEAN004 = 1
Else
BOOLEAN004 = 0
Endif
If (BOOLEAN004) Then
PrintLn
PrintLn "@X0CLBKBACK.XXX is currently in use by another copy of LOOPUTIL or LOOPBACK..."
PrintLn "@X0APlease shut down all other nodes and run LOOPUTIL again..."
PrintLn
FClose 2
Return
Endif
Else
FCreate 2, PPEPath() + "LBKBACK.XXX", 2, 2
If (Ferr(2)) Then
BOOLEAN004 = 1
Else
BOOLEAN004 = 0
Endif
If (BOOLEAN004) Then
PrintLn
PrintLn "@X0CLBKBACK.XXX is currently in use by another copy of LOOPUTIL or LOOPBACK..."
PrintLn "@X0APlease shut down all other nodes and run LOOPUTIL again..."
PrintLn
FClose 2
Return
Endif
Gosub LABEL026
PrintLn
PrintLn "@X0CCreating LBKBACK.XXX Binary Configuration File..."
Log "NEW LoopBack Configurations file created...", 0
FWrite 2, "LoopBack v5.05 Configuration File " + Chr(13) + Chr(10) + Chr(32) + Chr(26) + Chr(0), 43
FWrite 2, STRING001, 3
FWrite 2, BOOLEAN002, 1
FWrite 2, STRING005, 25
FWrite 2, INTEGER002, 4
FWrite 2, STRING008, 30
FWrite 2, STRING006, 30
FWrite 2, STRING007, 30
FWrite 2, BYTE001, 1
FWrite 2, WORD001, 2
FWrite 2, BOOLEAN003, 1
FWrite 2, INTEGER003, 4
FWrite 2, STRING009, 75
FWrite 2, WORD002, 2
FWrite 2, STRING010, 30
FWrite 2, BYTE013, 1
FWrite 2, TBYTE011(0), 1
FWrite 2, TBYTE011(1), 1
For INTEGER004 = 0 To 11
FWrite 2, TSTRING011(INTEGER004), 75
Next
FWrite 2, BYTE002, 1
FWrite 2, BYTE003, 1
FWrite 2, BYTE009, 1
FWrite 2, BYTE010, 1
FWrite 2, BYTE005, 1
FWrite 2, BYTE006, 1
FWrite 2, INTEGER005, 4
FWrite 2, INTEGER006, 4
FWrite 2, BYTE007, 1
For INTEGER004 = 0 To 4
FWrite 2, TBOOLEAN008(INTEGER004), 1
Next
FWrite 2, BYTE008, 1
For INTEGER004 = 0 To 3
FWrite 2, TBOOLEAN009(INTEGER004), 1
Next
FWrite 2, WORD003, 2
FWrite 2, BYTE012, 1
FWrite 2, BOOLEAN007, 1
FWrite 2, BOOLEAN010, 1
FWrite 2, BOOLEAN011, 1
FWrite 2, WORD004, 2
FWrite 2, BYTE004, 1
FWrite 2, BOOLEAN012, 1
FWrite 2, INTEGER007, 4
FWrite 2, INTEGER008, 4
FWrite 2, INT001, 2
FWrite 2, BOOLEAN013, 1
FWrite 2, BOOLEAN014, 1
FWrite 2, BYTE014, 1
FWrite 2, WORD005, 2
FWrite 2, Space(1013), 1013
Endif
BOOLEAN001 = 0
:LABEL002
If (BOOLEAN001) Goto LABEL025
STRING003 = ""
PrintLn
PrintLn " @X0F(@X0AT@X0F)@X0Eoggles"
PrintLn " @X0F(@X0AS@X0F)@X0Eettings"
PrintLn " @X0F(@X0AF@X0F)@X0Eile Paths"
PrintLn " @X0F(@X0AR@X0F)@X0Eegistration Information"
PrintLn
PrintLn " @X0F(@X0AQ@X0F)@X0Euit to LoopUtil Main"
PrintLn
InputStr "Configuration command", STRING003, 11, 1, "TtSsFfRrQqCcv", 2 + 4
STRING003 = Upper(STRING003)
Newline
Select Case (STRING003)
Case "T"
INTEGER001 = 1
BOOLEAN005 = 0
BOOLEAN006 = 1
:LABEL003
If (BOOLEAN005) Goto LABEL018
If (BOOLEAN006) Then
PrintLn
PrintLn "@X0AReading Toggles..."
FSeek 2, 46, 0
FRead 2, BOOLEAN002, 1
FSeek 2, 122, 1
FRead 2, BOOLEAN003, 1
FSeek 2, 112, 1
FRead 2, TBYTE011(0), 1
FRead 2, TBYTE011(1), 1
FSeek 2, 904, 1
FRead 2, BYTE005, 1
FRead 2, BYTE006, 1
FSeek 2, 8, 1
FRead 2, BYTE007, 1
For INTEGER004 = 0 To 4
FRead 2, TBOOLEAN008(INTEGER004), 1
Next
FSeek 2, 1, 1
For INTEGER004 = 0 To 3
FRead 2, TBOOLEAN009(INTEGER004), 1
Next
FSeek 2, 2, 1
FRead 2, BYTE012, 1
FRead 2, BOOLEAN007, 1
FRead 2, BOOLEAN010, 1
FRead 2, BOOLEAN011, 1
FSeek 2, 3, 1
FRead 2, BOOLEAN012, 1
FSeek 2, 10, 1
FRead 2, BOOLEAN013, 1
FRead 2, BOOLEAN014, 1
Endif
Cls
Select Case (INTEGER001)
Case 1
PrintLn "@X0FLoopUtil Configuration Toggles @X0A(Screen #1 of 2)"
PrintLn "@X0E────────────────────────────────────────────────────"
PrintLn
Print "@X0F (@X091@X0F) @X0AAllow International CallBacks..: @X0B"
If (BOOLEAN002) Then
PrintLn "Yes"
Else
PrintLn "No "
Endif
Print "@X0F (@X092@X0F) @X0AUser's time adjustment.........: @X0B"
If (BOOLEAN003) Then
PrintLn "Add Time "
Else
PrintLn "Replace Time"
Endif
Print "@X0F (@X093@X0F) @X0AMessage type to send to SysOp..: @X0B"
Select Case (BYTE005)
Case 1
PrintLn "Internal"
Case 2
PrintLn "External"
Case Else
PrintLn "None "
End Select
Print "@X0F (@X094@X0F) @X0AMessage type to send to User...: @X0B"
Select Case (BYTE006)
Case 1
PrintLn "Internal"
Case 2
PrintLn "External"
Case Else
PrintLn "None "
End Select
Print "@X0F (@X095@X0F) @X0AComment to use (Date/Phone)....: @X0B"
Select Case (BYTE007)
Case 0
PrintLn "None "
Case 1
PrintLn "Date "
Case 2
PrintLn "Phone #"
Case 3
PrintLn "Both "
End Select
Print "@X0F (@X096@X0F) @X0ACheck user's name..............: @X0B"
If (TBOOLEAN008(0)) Then
PrintLn "Yes"
Else
PrintLn "No "
Endif
Print "@X0F (@X097@X0F) @X0ACheck user's password..........: @X0B"
If (TBOOLEAN008(1)) Then
PrintLn "Yes"
Else
PrintLn "No "
Endif
Print "@X0F (@X098@X0F) @X0ACheck user's verify string.....: @X0B"
If (TBOOLEAN008(2)) Then
PrintLn "Yes"
Else
PrintLn "No "
Endif
Print "@X0F (@X099@X0F) @X0ACheck user's city..............: @X0B"
If (TBOOLEAN008(3)) Then
PrintLn "Yes"
Else
PrintLn "No "
Endif
Print "@X0F(@X0910@X0F) @X0AUpgrade local callers..........: @X0B"
If (BOOLEAN007) Then
PrintLn "Yes"
Else
PrintLn "No "
Endif
Print "@X0F(@X0911@X0F) @X0AUpdate user's data phone #.....: @X0B"
If (BOOLEAN012) Then
PrintLn "Yes"
Else
PrintLn "No "
Endif
Case 2
PrintLn "@X0FLoopUtil Configuration Toggles @X0A(Screen #2 of 2)"
PrintLn "@X0E────────────────────────────────────────────────────"
PrintLn
Print "@X0F(@X0912@X0F) @X0AVerify user's city.............: @X0B"
If (TBOOLEAN008(4)) Then
PrintLn "Yes"
Goto LABEL004
Endif
PrintLn "No "
:LABEL004
Print "@X0F(@X0913@X0F) @X0AAllow user to use logoff cmnd..: @X0B"
If (TBOOLEAN009(0)) Then
PrintLn "Yes"
Goto LABEL005
Endif
PrintLn "No "
:LABEL005
Print "@X0F(@X0914@X0F) @X0AAllow user to return to main...: @X0B"
If (TBOOLEAN009(1)) Then
PrintLn "Yes"
Goto LABEL006
Endif
PrintLn "No "
:LABEL006
Print "@X0F(@X0915@X0F) @X0AAllow multiple callbacks.......: @X0B"
If (TBOOLEAN009(2)) Then
PrintLn "Yes"
Goto LABEL007
Endif
PrintLn "No "
:LABEL007
Print "@X0F(@X0916@X0F) @X0AAllow trash file display.......: @X0B"
If (TBOOLEAN009(3)) Then
PrintLn "Yes"
Goto LABEL008
Endif
PrintLn "No "
:LABEL008
Print "@X0F(@X0917@X0F) @X0APlace to put date comment......: @X0B"
If (TBYTE011(0) == 0) Then
PrintLn "None "
Goto LABEL009
Endif
If (TBYTE011(0) == 1) Then
PrintLn "User Record Comment #1"
Goto LABEL009
Endif
If (TBYTE011(0) == 2) Then
PrintLn "User Record Comment #2"
Goto LABEL009
Endif
If (TBYTE011(0) == 10) Then
PrintLn "Notes PSA #1 "
Goto LABEL009
Endif
If (TBYTE011(0) == 20) Then
PrintLn "Notes PSA #2 "
Goto LABEL009
Endif
If (TBYTE011(0) == 30) Then
PrintLn "Notes PSA #3 "
Goto LABEL009
Endif
If (TBYTE011(0) == 40) Then
PrintLn "Notes PSA #4 "
Goto LABEL009
Endif
If (TBYTE011(0) == 50) Then
PrintLn "Notes PSA #5 "
Endif
:LABEL009
Print "@X0F(@X0918@X0F) @X0APlace to put phone comment.....: @X0B"
If (TBYTE011(1) == 0) Then
PrintLn "None "
Goto LABEL010
Endif
If (TBYTE011(1) == 1) Then
PrintLn "User Record Comment #1"
Goto LABEL010
Endif
If (TBYTE011(1) == 2) Then
PrintLn "User Record Comment #2"
Goto LABEL010
Endif
If (TBYTE011(1) == 10) Then
PrintLn "Notes PSA #1 "
Goto LABEL010
Endif
If (TBYTE011(1) == 20) Then
PrintLn "Notes PSA #2 "
Goto LABEL010
Endif
If (TBYTE011(1) == 30) Then
PrintLn "Notes PSA #3 "
Goto LABEL010
Endif
If (TBYTE011(1) == 40) Then
PrintLn "Notes PSA #4 "
Goto LABEL010
Endif
If (TBYTE011(1) == 50) Then
PrintLn "Notes PSA #5 "
Endif
:LABEL010
Print "@X0F(@X0919@X0F) @X0AFiletype to execute at the end.: @X0B"
If (BYTE012 == 0) Then
PrintLn "None "
Goto LABEL011
Endif
If (BYTE012 == 1) Then
PrintLn "PPE file "
Goto LABEL011
Endif
If (BYTE012 == 2) Then
PrintLn "DOS batch file"
Endif
:LABEL011
Print "@X0F(@X0920@X0F) @X0ABroadcast messaging control....: @X0B"
If (BOOLEAN010) Then
PrintLn "DO NOT ALLOW"
Goto LABEL012
Endif
PrintLn "ALLOW "
:LABEL012
Print "@X0F(@X0921@X0F) @X0AHangup on bad numbers..........: @X0B"
If (BOOLEAN011) Then
PrintLn "Yes"
Goto LABEL013
Endif
PrintLn "No "
:LABEL013
Print "@X0F(@X0922@X0F) @X0AImmediately start download.....: @X0B"
If (BOOLEAN013) Then
PrintLn "Yes"
Goto LABEL014
Endif
PrintLn "No "
:LABEL014
Print "@X0F(@X0923@X0F) @X0ACheck Caller-ID string.........: @X0B"
If (BOOLEAN014) Then
PrintLn "Yes"
Goto LABEL015
Endif
PrintLn "No "
End Select
:LABEL015
PrintLn
STRING004 = ""
InputStr "(Q)uit, (H)elp, Rotate (P)age, Configuration toggles command", STRING004, 15, 2, "1234567890QqHhPp", 2 + 4
STRING004 = Upper(Strip(STRING004, " "))
Newline
Select Case (STRING004)
Case "Q"
BOOLEAN005 = 1
Case "H"
Cls
Print "@PON@"
DispFile PPEPath() + "LBKCT", 1 + 4
Print "@POFF@"
Case "P"
If (INTEGER001 == 1) Then
INTEGER001 = 2
Else
INTEGER001 = 1
Endif
BOOLEAN006 = 1
Case "1"
If (BOOLEAN002) Then
BOOLEAN002 = 0
Else
BOOLEAN002 = 1
Endif
FSeek 2, 46, 0
FWrite 2, BOOLEAN002, 1
BOOLEAN006 = 1
Case "2"
STRING002 = ""
InputStr "@X0B(@X0FA@X0B)@X0Cdd or @X0B(@X0FR@X0B)@X0Ceplace time", STRING002, 12, 1, "AaRr", 2 + 4
STRING002 = Upper(STRING002)
If (STRING002 == "A") Then
BOOLEAN003 = 1
Else
BOOLEAN003 = 0
Endif
FSeek 2, 169, 0
FWrite 2, BOOLEAN003, 1
BOOLEAN006 = 1
Case "3"
STRING002 = ""
InputStr "@X0CSend sysop @X0B(@X0FI@X0B)@X0Cnternal, @X0B(@X0FE@X0B)@X0Cxternal, @X0B(@X0FN@X0B)@X0Co message", STRING002, 12, 1, "IiEeNn", 2 + 4
STRING002 = Upper(STRING002)
Select Case (STRING002)
Case "N"
BYTE005 = 0
Case "I"
BYTE005 = 1
Case "E"
BYTE005 = 2
End Select
FSeek 2, 1188, 0
FWrite 2, BYTE005, 1
BOOLEAN006 = 1
Case "4"
STRING002 = ""
InputStr "@X0CSend user @X0B(@X0FI@X0B)@X0Cnternal, @X0B(@X0FE@X0B)@X0Cxternal, @X0B(@X0FN@X0B)@X0Co message", STRING002, 12, 1, "IiEeNn", 2 + 4
STRING002 = Upper(STRING002)
Select Case (STRING002)
Case "N"
BYTE006 = 0
Case "I"
BYTE006 = 1
Case "E"
BYTE006 = 2
End Select
FSeek 2, 1189, 0
FWrite 2, BYTE006, 1
BOOLEAN006 = 1
Case "5"
STRING002 = ""
InputStr "@X0CUse @X0B(@X0FN@X0B)@X0Co, @X0B(@X0FD@X0B)@X0Cate, @X0B(@X0FP@X0B)@X0Chone, @X0B(@X0FB@X0B)@X0Coth comment type", STRING002, 12, 1, "NnDdPpBb", 2 + 4
STRING002 = Upper(STRING002)
Select Case (STRING002)
Case "N"
BYTE007 = 0
Case "D"
BYTE007 = 1
Case "P"
BYTE007 = 2
Case "B"
BYTE007 = 3
End Select
FSeek 2, 1198, 0
FWrite 2, BYTE007, 1
BOOLEAN006 = 1
Case "6"
If (TBOOLEAN008(0)) Then
STRING002 = YesChar()
Else
STRING002 = NoChar()
Endif
InputYN "Check user's name upon callback", STRING002, 12
If (STRING002 == YesChar()) Then
TBOOLEAN008(0) = 1
Else
TBOOLEAN008(0) = 0
Endif
FSeek 2, 1199, 0
FWrite 2, TBOOLEAN008(0), 1
BOOLEAN006 = 1
Case "7"
If (TBOOLEAN008(1)) Then
STRING002 = YesChar()
Else
STRING002 = NoChar()
Endif
InputYN "Check user's password upon callback", STRING002, 12
If (STRING002 == YesChar()) Then
TBOOLEAN008(1) = 1
Else
TBOOLEAN008(1) = 0
Endif
FSeek 2, 1200, 0
FWrite 2, TBOOLEAN008(1), 1
BOOLEAN006 = 1
Case "8"
If (TBOOLEAN008(2)) Then
STRING002 = YesChar()
Else
STRING002 = NoChar()
Endif
InputYN "Check user's verification string upon callback", STRING002, 12
If (STRING002 == YesChar()) Then
TBOOLEAN008(2) = 1
Else
TBOOLEAN008(2) = 0
Endif
FSeek 2, 1201, 0
FWrite 2, TBOOLEAN008(2), 1
BOOLEAN006 = 1
Case "9"
If (TBOOLEAN008(3)) Then
STRING002 = YesChar()
Else
STRING002 = NoChar()
Endif
InputYN "Check user's city (calling from) upon callback", STRING002, 12
If (STRING002 == YesChar()) Then
TBOOLEAN008(3) = 1
Else
TBOOLEAN008(3) = 0
Endif
FSeek 2, 1202, 0
FWrite 2, TBOOLEAN008(3), 1
BOOLEAN006 = 1
Case "10"
If (BOOLEAN007) Then
STRING002 = YesChar()
Else
STRING002 = NoChar()
Endif
InputYN "Upgrade local callers", STRING002, 10
Newline
If (Upper(STRING002) == YesChar()) Then
BOOLEAN007 = 1
Else
BOOLEAN007 = 0
Endif
FSeek 2, 1212, 0
FWrite 2, BOOLEAN007, 1
BOOLEAN006 = 1
Case "11"
If (BOOLEAN012) Then
STRING002 = YesChar()
Else
STRING002 = NoChar()
Endif
InputYN "Update user's data phone # after successful callback", STRING002, 10
Newline
If (Upper(STRING002) == YesChar()) Then
BOOLEAN012 = 1
Else
BOOLEAN012 = 0
Endif
FSeek 2, 1218, 0
FWrite 2, BOOLEAN012, 1
BOOLEAN006 = 1
Case "12"
If (TBOOLEAN008(4)) Then
STRING002 = YesChar()
Else
STRING002 = NoChar()
Endif
InputYN "Verify user's name & city upon callback (for large user databases)", STRING002, 12
If (STRING002 == YesChar()) Then
TBOOLEAN008(4) = 1
Else
TBOOLEAN008(4) = 0
Endif
FSeek 2, 1203, 0
FWrite 2, TBOOLEAN008(4), 1
BOOLEAN006 = 1
Case "13"
If (TBOOLEAN009(0)) Then
STRING002 = YesChar()
Else
STRING002 = NoChar()
Endif
InputYN "Allow user to logoff from within LoopBack", STRING002, 12
If (STRING002 == YesChar()) Then
TBOOLEAN009(0) = 1
Else
TBOOLEAN009(0) = 0
Endif
FSeek 2, 1205, 0
FWrite 2, TBOOLEAN009(0), 1
BOOLEAN006 = 1
Case "14"
If (TBOOLEAN009(1)) Then
STRING002 = YesChar()
Else
STRING002 = NoChar()
Endif
InputYN "Allow user to return to BBS without callback", STRING002, 12
If (STRING002 == YesChar()) Then
TBOOLEAN009(1) = 1
Else
TBOOLEAN009(1) = 0
Endif
FSeek 2, 1206, 0
FWrite 2, TBOOLEAN009(1), 1
BOOLEAN006 = 1
Case "15"
If (TBOOLEAN009(2)) Then
STRING002 = YesChar()
Else
STRING002 = NoChar()
Endif
InputYN "Allow multiple callbacks (callbacks to the same number more than once)", STRING002, 12
If (STRING002 == YesChar()) Then
TBOOLEAN009(2) = 1
Else
TBOOLEAN009(2) = 0
Endif
FSeek 2, 1207, 0
FWrite 2, TBOOLEAN009(2), 1
BOOLEAN006 = 1
Case "16"
If (TBOOLEAN009(3)) Then
STRING002 = YesChar()
Else
STRING002 = NoChar()
Endif
InputYN "Display trash can file information upon successful # search", STRING002, 12
If (STRING002 == YesChar()) Then
TBOOLEAN009(3) = 1
Else
TBOOLEAN009(3) = 0
Endif
FSeek 2, 1208, 0
FWrite 2, TBOOLEAN009(3), 1
BOOLEAN006 = 1
Case "17"
STRING002 = ""
PrintLn "@X0B(@X0E1@X0B) @X0FUser record comment #1 @X0B(@X0E2@X0B) @X0FUser record comment #2"
PrintLn "@X0B(@X0E3@X0B) @X0FNotes PSA #1 @X0B(@X0E4@X0B) @X0FNotes PSA #2 @X0B(@X0E5@X0B) @X0F Notes PSA #3"
PrintLn "@X0B(@X0E6@X0B) @X0FNotes PSA #4 @X0B(@X0E7@X0B) @X0FNotes PSA #5"
PrintLn
If (!Psa(6)) PrintLn "@X0ANOTES PSA NOT DETECTED!! PLEASE INSTALL IF USING COMMENTS WITH IT!"
InputStr "Enter location for date comment", STRING002, 15, 1, "1234567", 2 + 4
STRING002 = Upper(Strip(STRING002, " "))
Select Case (STRING002)
Case "1"
TBYTE011(0) = 1
Case "2"
TBYTE011(0) = 2
Case "3"
TBYTE011(0) = 10
Case "4"
TBYTE011(0) = 20
Case "5"
TBYTE011(0) = 30
Case "6"
TBYTE011(0) = 40
Case "7"
TBYTE011(0) = 50
End Select
FSeek 2, 282, 0
FWrite 2, TBYTE011(0), 1
BOOLEAN006 = 1
Case "18"
STRING002 = ""
PrintLn "@X0B(@X0E1@X0B) @X0FUser record comment #1 @X0B(@X0E2@X0B) @X0FUser record comment #2"
PrintLn "@X0B(@X0E3@X0B) @X0FNotes PSA #1 @X0B(@X0E4@X0B) @X0FNotes PSA #2 @X0B(@X0E5@X0B) @X0F Notes PSA #3"
PrintLn "@X0B(@X0E6@X0B) @X0FNotes PSA #4 @X0B(@X0E7@X0B) @X0FNotes PSA #5"
PrintLn
If (!Psa(6)) PrintLn "@X0ANOTES PSA NOT DETECTED!! PLEASE INSTALL IF USING COMMENTS WITH IT!"
InputStr "Enter location for phone comment", STRING002, 15, 1, "1234567", 2 + 4
STRING002 = Upper(Strip(STRING002, " "))
Select Case (STRING002)
Case "1"
TBYTE011(1) = 1
Case "2"
TBYTE011(1) = 2
Case "3"
TBYTE011(1) = 10
Case "4"
TBYTE011(1) = 20
Case "5"
TBYTE011(1) = 30
Case "6"
TBYTE011(1) = 40
Case "7"
TBYTE011(1) = 50
End Select
FSeek 2, 283, 0
FWrite 2, TBYTE011(1), 1
BOOLEAN006 = 1
Case "19"
STRING002 = ""
InputStr "@X0F(@X0AP@X0F)@X0Bpe file, @X0F(@X0AB@X0F)@X0Batch file, @X0F(@X0AN@X0F)@X0Bone", STRING002, 11, 1, "PpBbNn", 2 + 4
STRING002 = Upper(STRING002)
Select Case (STRING002)
Case "N"
BYTE012 = 0
Case "P"
BYTE012 = 1
Case "B"
BYTE012 = 2
End Select
FSeek 2, 1211, 0
FWrite 2, BYTE012, 1
BOOLEAN006 = 1
Case "20"
If (BOOLEAN010) Then
STRING002 = "D"
Else
STRING002 = "A"
Endif
InputStr "@X0F(@X0AA@X0F)@X0Ellow, @X0F(@X0AD@X0F)@X0Eo not allow broad cast messages", STRING002, 0, 1, "AaDd", 2 + 4 + 256 + 8
Newline
If (STRING002 == "D") Then
BOOLEAN010 = 1
Else
BOOLEAN010 = 0
Endif
FSeek 2, 1213, 0
FWrite 2, BOOLEAN010, 1
BOOLEAN006 = 1
Case "21"
If (BOOLEAN011) Then
STRING002 = YesChar()
Else
STRING002 = NoChar()
Endif
InputYN "Hangup on user if # is found in Bad Numbers File", STRING002, 10
Newline
If (Upper(STRING002) == YesChar()) Then
BOOLEAN011 = 1
Else
BOOLEAN011 = 0
Endif
FSeek 2, 1214, 0
FWrite 2, BOOLEAN011, 1
BOOLEAN006 = 1
Case "22"
If (BOOLEAN013) Then
STRING002 = YesChar()
Else
STRING002 = NoChar()
Endif
InputYN "Start download process after files are flagged for download", STRING002, 10
Newline
If (Upper(STRING002) == YesChar()) Then
BOOLEAN013 = 1
Else
BOOLEAN013 = 0
Endif
FSeek 2, 1229, 0
FWrite 2, BOOLEAN013, 1
BOOLEAN006 = 1
Case "23"
If (BOOLEAN014) Then
STRING002 = YesChar()
Goto LABEL016
Endif
STRING002 = NoChar()
:LABEL016
InputYN "Check Caller-ID string and automatically upgrade user if a match is found", STRING002, 10
Newline
If (Upper(STRING002) == YesChar()) Then
BOOLEAN014 = 1
Goto LABEL017
Endif
BOOLEAN014 = 0
:LABEL017
FSeek 2, 1230, 0
FWrite 2, BOOLEAN014, 1
BOOLEAN006 = 1
End Select
Goto LABEL003
:LABEL018
Case "S"
INTEGER001 = 1
BOOLEAN005 = 0
BOOLEAN006 = 1
:LABEL019
If (BOOLEAN005) Goto LABEL020
If (BOOLEAN006) Then
PrintLn
PrintLn "@X0AReading configuration settings..."
FSeek 2, 43, 0
FRead 2, STRING001, 3
FSeek 2, 30, 1
FRead 2, STRING008, 30
FRead 2, STRING006, 30
FRead 2, STRING007, 30
FRead 2, BYTE001, 1
FRead 2, WORD001, 2
FSeek 2, 1, 1
FRead 2, INTEGER003, 4
FRead 2, STRING009, 75
FRead 2, WORD002, 2
FRead 2, STRING010, 30
FRead 2, BYTE013, 1
FSeek 2, 902, 1
FRead 2, BYTE002, 1
FRead 2, BYTE003, 1
FRead 2, BYTE009, 1
FRead 2, BYTE010, 1
FSeek 2, 16, 1
FRead 2, BYTE008, 1
FSeek 2, 4, 1
FRead 2, WORD003, 2
FSeek 2, 4, 1
FRead 2, WORD004, 2
FRead 2, BYTE004, 1
FSeek 2, 1, 1
FRead 2, INTEGER007, 4
FRead 2, INTEGER008, 4
FRead 2, INT001, 2
FSeek 2, 2, 1
FRead 2, BYTE014, 1
FRead 2, WORD005, 2
Endif
Cls
Select Case (INTEGER001)
Case 1
PrintLn "@X0FLoopUtil Configuration Settings @X0A(Screen #1 of 2)"
PrintLn "@X0E────────────────────────────────────────────────────"
PrintLn
PrintLn "@X0F (@X091@X0F) @X0AModem dialstring.................: @X0B" + Trim(STRING008, " ")
PrintLn "@X0F (@X092@X0F) @X0ANumber dialing prefix............: @X0B" + Trim(STRING006, " ")
PrintLn "@X0F (@X093@X0F) @X0ANumber dialing suffix............: @X0B" + Trim(STRING007, " ")
PrintLn "@X0F (@X094@X0F) @X0AMaximum # of redial attempts.....: @X0B" + String(BYTE001)
PrintLn "@X0F (@X095@X0F) @X0AMaximum ticks to wait for connect: @X0B" + String(WORD001)
PrintLn "@X0F (@X096@X0F) @X0AAmount of time to adjust.........: @X0B" + String(INTEGER003)
PrintLn "@X0F (@X097@X0F) @X0AModem init string before callback: @X0C(See Below)@X0B"
PrintLn Space(6) + Trim(STRING009, " ")
PrintLn "@X0F (@X098@X0F) @X0AMaximum ticks to wait for hangup.: @X0B" + String(WORD002)
PrintLn "@X0F (@X099@X0F) @X0ALong Distance access string......: @X0B" + Trim(STRING010, " ")
PrintLn "@X0F(@X0910@X0F) @X0AMinimum # of digits to dial......: @X0B" + String(BYTE004)
PrintLn "@X0F(@X0911@X0F) @X0ADefault Exp. Lvl. if no callback.: @X0B" + String(BYTE014)
PrintLn "@X0F(@X0912@X0F) @X0ADefault days till expire (no cal): @X0B" + String(WORD005)
Case 2
PrintLn "@X0FLoopUtil Configuration Settings @X0A(Screen #2 of 2)"
PrintLn "@X0E────────────────────────────────────────────────────"
PrintLn
PrintLn "@X0F(@X0913@X0F) @X0ADefault Sec. level if no callback: @X0B" + String(BYTE013)
PrintLn "@X0F(@X0914@X0F) @X0AMaximum # name input tries.......: @X0B" + String(BYTE002)
PrintLn "@X0F(@X0915@X0F) @X0AMaximum # password input tries...: @X0B" + String(BYTE003)
PrintLn "@X0F(@X0916@X0F) @X0AMaximum # verify input tries.....: @X0B" + String(BYTE009)
PrintLn "@X0F(@X0917@X0F) @X0AMaximum # city input tries.......: @X0B" + String(BYTE010)
PrintLn "@X0F(@X0918@X0F) @X0AMaximum # hangup attempts........: @X0B" + String(BYTE008)
PrintLn "@X0F(@X0919@X0F) @X0ATime to delay after connection...: @X0B" + String(WORD003)
PrintLn "@X0F(@X0920@X0F) @X0AYour BBS line's areacode.........: @X0B" + Trim(STRING001, " ")
PrintLn "@X0F(@X0921@X0F) @X0ANumber of minutes to add on entry: @X0B" + String(WORD004)
PrintLn "@X0F(@X0922@X0F) @X0ADaily download bytes to add......: @X0B" + String(INTEGER007)
PrintLn "@X0F(@X0923@X0F) @X0ATotal download bytes to add......: @X0B" + String(INTEGER008)
PrintLn "@X0F(@X0924@X0F) @X0ATotal files downloaded to add....: @X0B" + String(INT001)
End Select
PrintLn
STRING004 = ""
InputStr "(Q)uit, (H)elp, Rotate (P)age, Configuration settings command", STRING004, 15, 2, "1234567890QHqhPp", 2 + 4
STRING004 = Upper(Trim(STRING004, " "))
Newline
Select Case (STRING004)
Case "Q"
BOOLEAN005 = 1
Case "H"
Cls
Print "@PON@"
DispFile PPEPath() + "LBKCS", 1 + 4
Print "@POFF@"
Case "P"
If (INTEGER001 == 1) Then
INTEGER001 = 2
Else
INTEGER001 = 1
Endif
BOOLEAN006 = 1
Case "1"
InputStr "Your modem dialing string", STRING008, 12, 30, Mask_Ascii(), 2 + 4
FSeek 2, 76, 0
FWrite 2, STRING008, 30
BOOLEAN006 = 1
Case "2"
InputStr "Modem dialing prefix (PBX Line)", STRING006, 12, 30, Mask_Ascii(), 2 + 4
FSeek 2, 106, 0
FWrite 2, STRING006, 30
BOOLEAN006 = 1
Case "3"
InputStr "Modem dialing suffix (after number)", STRING007, 12, 30, Mask_Ascii(), 2 + 4
FSeek 2, 136, 0
FWrite 2, STRING007, 30
BOOLEAN006 = 1
Case "4"
InputInt "Maximum # of redial attempts", BYTE001, 12
FSeek 2, 166, 0
FWrite 2, BYTE001, 1
BOOLEAN006 = 1
Case "5"
PrintLn "@X0B(18.2 Ticks = 1 Second)"
InputInt "Maximum # ticks to wait for connection", WORD001, 12
FSeek 2, 167, 0
FWrite 2, WORD001, 2
BOOLEAN006 = 1
Case "6"
InputInt "Amount of time to adjust", INTEGER003, 12
FSeek 2, 170, 0
FWrite 2, INTEGER003, 4
BOOLEAN006 = 1
Case "7"
PrintLn "@X0FModem Initialization String Before Callback @X0B(Enter below)"
InputStr "", STRING009, 12, 75, Mask_Ascii(), 2 + 4 + 8
FSeek 2, 174, 0
FWrite 2, STRING009, 75
BOOLEAN006 = 1
Case "8"
PrintLn "@X0B(18.2 Ticks = 1 Second)"
InputInt "Maximum # ticks to wait for hangup", WORD002, 12
FSeek 2, 249, 0
FWrite 2, WORD002, 2
BOOLEAN006 = 1
Case "9"
InputStr "Long distance access string", STRING010, 12, 30, Mask_Ascii(), 2 + 4
FSeek 2, 251, 0
FWrite 2, STRING010, 30
BOOLEAN006 = 1
Case "10"
InputInt "Minimum amount of digits allowed in dialing string for callback", BYTE004, 12
FSeek 2, 1217, 0
FWrite 2, BYTE004, 1
BOOLEAN006 = 1
Case "11"
InputInt "Default exp. sec. level if no callback occurs", BYTE014, 12
FSeek 2, 1231, 0
FWrite 2, BYTE014, 1
BOOLEAN006 = 1
Case "12"
InputInt "Default # days to add to verification date if no callback occurs", WORD005, 12
FSeek 2, 1232, 0
FWrite 2, WORD005, 2
BOOLEAN006 = 1
Case "13"
InputInt "Default sec. level if no callback occurs", BYTE013, 12
FSeek 2, 281, 0
FWrite 2, BYTE013, 1
BOOLEAN006 = 1
Case "14"
InputInt "Maximum number of name tries", BYTE002, 12
FSeek 2, 1184, 0
FWrite 2, BYTE002, 1
BOOLEAN006 = 1
Case "15"
InputInt "Maximum number of password tries", BYTE002, 12
FSeek 2, 1185, 0
FWrite 2, BYTE003, 1
BOOLEAN006 = 1
Case "16"
InputInt "Maximum number of verification string tries", BYTE002, 12
FSeek 2, 1186, 0
FWrite 2, BYTE009, 1
BOOLEAN006 = 1
Case "17"
InputInt "Enter maximum number of city tries", BYTE002, 12
FSeek 2, 1187, 0
FWrite 2, BYTE010, 1
BOOLEAN006 = 1
Case "18"
InputInt "Maximum # of hangup attempts", BYTE008, 12
FSeek 2, 1204, 0
FWrite 2, BYTE008, 1
BOOLEAN006 = 1
Case "19"
PrintLn "@X0B(18.2 Ticks = 1 Second)"
InputInt "Number of ticks to delay after connection", WORD003, 12
FSeek 2, 1209, 0
FWrite 2, WORD003, 2
BOOLEAN006 = 1
Case "20"
InputStr "Your BBS Line's areacode", STRING001, 12, 3, Mask_Num(), 2 + 4
FSeek 2, 43, 0
FWrite 2, STRING001, 3
BOOLEAN006 = 1
Case "21"
InputInt "Number of minutes to add to user's time upon entry of LoopBack", WORD004, 10
FSeek 2, 1215, 0
FWrite 2, WORD004, 2
BOOLEAN006 = 1
Case "22"
PrintLn
PrintLn "@X0CNOTE: The following setting will be added to the # of bytes the user has"
PrintLn " downloaded to the day of the verification."
PrintLn
PrintLn "@X0Fie., if you want LoopBack to tell PCBoard that the user has already downloaded"
PrintLn "100,000 bytes for day, set this equal to 100000."
PrintLn
PrintLn "ie., if you want LoopBack to tell PCBoard that the user can download 100,000 "
PrintLn "more bytes today, set this equal to -100000."
PrintLn
InputInt "Number of bytes to add to user's daily download bytes", INTEGER007, 12
FSeek 2, 1219, 0
FWrite 2, INTEGER007, 4
BOOLEAN006 = 1
Case "23"
PrintLn
PrintLn "@X0CNOTE: The following setting will be added to the total # of bytes that the "
PrintLn " user had downloaded since his/her first day of logon."
PrintLn
PrintLn "@X0Fie., if you want LoopBack to tell PCBoard that the user has already downloaded"
PrintLn "100,000 bytes since his/her first logon date, set this equal to 100000."
PrintLn
PrintLn "ie., if you want LoopBack to tell PCBoard that the user can download 100,000 "
PrintLn "more total bytes, set this equal to -100000."
PrintLn
InputInt "Number of bytes to add to user's total download bytes", INTEGER008, 12
FSeek 2, 1223, 0
FWrite 2, INTEGER008, 4
BOOLEAN006 = 1
Case "24"
PrintLn
PrintLn "@X0CNOTE: The following setting will be added to the total # of files that the "
PrintLn " user had downloaded since his/her first day of logon."
PrintLn
PrintLn "@X0Fie., if you want LoopBack to tell PCBoard that the user has already downloaded"
PrintLn "10 files since his/her first logon date, set this equal to 10."
PrintLn
PrintLn "ie., if you want LoopBack to tell PCBoard that the user can download 10 "
PrintLn "more total bytes, set this equal to -10."
PrintLn
InputInt "Number of files to add to user's total download files", INT001, 12
FSeek 2, 1227, 0
FWrite 2, INT001, 2
BOOLEAN006 = 1
End Select
Goto LABEL019
:LABEL020
Case "F"
INTEGER001 = 1
BOOLEAN005 = 0
BOOLEAN006 = 1
:LABEL021
If (BOOLEAN005) Goto LABEL022
If (BOOLEAN006) Then
PrintLn
PrintLn "@X0AReading configuration paths..."
FSeek 2, 284, 0
For INTEGER004 = 0 To 11
FRead 2, TSTRING011(INTEGER004), 75
Next
Endif
Cls
Select Case (INTEGER001)
Case 1
PrintLn "@X0FLoopUtil Configuration Paths @X0A(Screen #1 of 2)"
PrintLn "@X0E────────────────────────────────────────────────────"
PrintLn "@X0F (@X091@X0F) @X0ATrash can file.............@X0C(See Below):"
PrintLn "@X0E (@X0B" + Trim(TSTRING011(0), " ") + "@X0E)"
PrintLn "@X0F (@X092@X0F) @X0AAllowed # calling file.....@X0C(See Below):"
PrintLn "@X0E (@X0B" + Trim(TSTRING011(1), " ") + "@X0E)"
PrintLn "@X0F (@X093@X0F) @X0AUser name trash file.......@X0C(See Below):"
PrintLn "@X0E (@X0B" + Trim(TSTRING011(2), " ") + "@X0E)"
PrintLn "@X0F (@X094@X0F) @X0ABad numbers file...........@X0C(See Below):"
PrintLn "@X0E (@X0B" + Trim(TSTRING011(3), " ") + "@X0E)"
PrintLn "@X0F (@X095@X0F) @X0ASysop message file.........@X0C(See Below):"
PrintLn "@X0E (@X0B" + Trim(TSTRING011(4), " ") + "@X0E)"
PrintLn "@X0F (@X096@X0F) @X0AUser message file..........@X0C(See Below):"
PrintLn "@X0E (@X0B" + Trim(TSTRING011(5), " ") + "@X0E)"
Case 2
PrintLn "@X0FLoopUtil Configuration Paths @X0A(Screen #2 of 2)"
PrintLn "@X0E────────────────────────────────────────────────────"
PrintLn "@X0F (@X097@X0F) @X0ANumbers menu file..................@X0C(See Below):"
PrintLn "@X0E (@X0B" + Trim(TSTRING011(6), " ") + "@X0E)"
PrintLn "@X0F (@X098@X0F) @X0AHelp file..........................@X0C(See Below):"
PrintLn "@X0E (@X0B" + Trim(TSTRING011(7), " ") + "@X0E)"
PrintLn "@X0F (@X099@X0F) @X0ALocking timetable..................@X0C(See Below):"
PrintLn "@X0E (@X0B" + Trim(TSTRING011(8), " ") + "@X0E)"
PrintLn "@X0F(@X0910@X0F) @X0ASecurity trash file................@X0C(See Below):"
PrintLn "@X0E (@X0B" + Trim(TSTRING011(9), " ") + "@X0E)"
PrintLn "@X0F(@X0911@X0F) @X0AFile to flag for user..............@X0C(See Below):"
PrintLn "@X0E (@X0B" + Trim(TSTRING011(10), " ") + "@X0E)"
PrintLn "@X0F(@X0912@X0F) @X0AFile to execute upon verification..@X0C(See Below):"
PrintLn "@X0E (@X0B" + Trim(TSTRING011(11), " ") + "@X0E)"
End Select
PrintLn
STRING004 = ""
InputStr "(Q)uit, (H)elp, Rotate (P)age, Configuration file paths command", STRING004, 15, 2, "1234567890QHqhPp", 2 + 4
STRING004 = Upper(Strip(STRING004, " "))
Newline
Select Case (STRING004)
Case "Q"
BOOLEAN005 = 1
Case "H"
Cls
Print "@PON@"
DispFile PPEPath() + "LBKCP", 1 + 4
Print "@POFF@"
Case "P"
If (INTEGER001 == 1) Then
INTEGER001 = 2
Else
INTEGER001 = 1
Endif
Case "1"
PrintLn "@X0FAlready used numbers trash can path & filename @X0B(Enter below)"
InputStr "", TSTRING011(0), 12, 75, Mask_Path() + Mask_File(), 2 + 4
FSeek 2, 284, 0
FWrite 2, TSTRING011(0), 75
BOOLEAN006 = 1
Case "2"
PrintLn "@X0FAllowed numbers to call path & filename @X0B(Enter Below)"
InputStr "", TSTRING011(1), 12, 75, Mask_Path() + Mask_File(), 2 + 4
FSeek 2, 359, 0
FWrite 2, TSTRING011(1), 75
BOOLEAN006 = 1
Case "3"
PrintLn "@X0FUser names trash can path & filename @X0B(Enter Below)"
InputStr "", TSTRING011(2), 12, 75, Mask_Path() + Mask_File(), 2 + 4
FSeek 2, 434, 0
FWrite 2, TSTRING011(2), 75
BOOLEAN006 = 1
Case "4"
PrintLn "@X0FBad # templates path & filename @X0B(Enter Below)"
InputStr "", TSTRING011(3), 12, 75, Mask_Path() + Mask_File(), 2 + 4
FSeek 2, 509, 0
FWrite 2, TSTRING011(3), 75
BOOLEAN006 = 1
Case "5"
PrintLn "@X0FMessage to send to SysOp path & filename @X0B(Enter Below)"
InputStr "", TSTRING011(4), 12, 75, Mask_Path() + Mask_File(), 2 + 4
FSeek 2, 584, 0
FWrite 2, TSTRING011(4), 75
BOOLEAN006 = 1
Case "6"
PrintLn "@X0FMessage to send to user path & filename @X0B(Enter Below)"
InputStr "", TSTRING011(5), 12, 75, Mask_Path() + Mask_File(), 2 + 4
FSeek 2, 659, 0
FWrite 2, TSTRING011(5), 75
BOOLEAN006 = 1
Case "7"
PrintLn "@X0FNumber selection menu path & filename @X0B(Enter Below)"
InputStr "", TSTRING011(6), 12, 75, Mask_Path() + Mask_File(), 2 + 4
FSeek 2, 734, 0
FWrite 2, TSTRING011(6), 75
BOOLEAN006 = 1
Case "8"
PrintLn "@X0FUsers help file path & filename @X0B(Enter Below)"
InputStr "", TSTRING011(7), 12, 75, Mask_Path() + Mask_File(), 2 + 4
FSeek 2, 809, 0
FWrite 2, TSTRING011(7), 75
BOOLEAN006 = 1
Case "9"
PrintLn "@X0FLoopBack locking timetable path & filename @X0B(Enter Below)"
InputStr "", TSTRING011(8), 12, 75, Mask_Path() + Mask_File(), 2 + 4
FSeek 2, 884, 0
FWrite 2, TSTRING011(8), 75
BOOLEAN006 = 1
Case "10"
PrintLn "@X0FSecurity level trash can path & filename @X0B(Enter Below)"
InputStr "", TSTRING011(9), 12, 75, Mask_Path() + Mask_File(), 2 + 4
FSeek 2, 959, 0
FWrite 2, TSTRING011(9), 75
BOOLEAN006 = 1
Case "11"
PrintLn "@X0FPath & filename to flag upon successful verification @X0B(Enter Below)"
InputStr "", TSTRING011(10), 12, 75, Mask_Path() + Mask_File(), 2 + 4
FSeek 2, 1034, 0
FWrite 2, TSTRING011(10), 75
BOOLEAN006 = 1
Case "12"
PrintLn "@X0FFile to execute upon successful verification @X0B(Enter Below)"
InputStr "", TSTRING011(11), 12, 75, Mask_Path() + Mask_File(), 2 + 4
FSeek 2, 1109, 0
FWrite 2, TSTRING011(11), 75
BOOLEAN006 = 1
End Select
Goto LABEL021
:LABEL022
Case "R"
BOOLEAN005 = 0
BOOLEAN006 = 1
:LABEL023
If (BOOLEAN005) Goto LABEL024
If (BOOLEAN006) Then
PrintLn
PrintLn "@X0AReading registration information..."
FSeek 2, 47, 0
FRead 2, STRING005, 25
FRead 2, INTEGER002, 4
FSeek 2, 1114, 1
FRead 2, INTEGER005, 4
FRead 2, INTEGER006, 4
Endif
Cls
PrintLn "@X0FLoopUtil Registration Information @X0A(Screen #1 of 1)"
PrintLn "@X0E────────────────────────────────────────────────────"
PrintLn
PrintLn "@X0F (@X091@X0F) @X0ASysOp Name............: @X0B" + STRING005
PrintLn "@X0F (@X092@X0F) @X0ARegistration #........: @X0B" + String(INTEGER002)
PrintLn "@X0F (@X093@X0F) @X0ADate + Time Registered: @X0B" + String(INTEGER005)
PrintLn "@X0F (@X094@X0F) @X0AVersion Registered....: @X0B" + String(INTEGER006)
PrintLn
STRING004 = ""
InputStr "(Q)uit, (H)elp, Registration information command", STRING004, 15, 1, "1234QHqh", 2 + 4
STRING004 = Upper(STRING004)
Newline
Select Case (STRING004)
Case "Q"
BOOLEAN005 = 1
Case "H"
Cls
Print "@PON@"
DispFile PPEPath() + "LBKCR", 1 + 4
Print "@POFF@"
Case "1"
InputStr "SysOp Name", STRING005, 12, 25, Mask_Ascii(), 2 + 4
FSeek 2, 47, 0
FWrite 2, STRING005, 25
BOOLEAN006 = 1
Case "2"
InputInt "Registration #", INTEGER002, 12
FSeek 2, 72, 0
FWrite 2, INTEGER002, 4
BOOLEAN006 = 1
Case "3"
InputInt "Date + Time Registered", INTEGER005, 12
FSeek 2, 1190, 0
FWrite 2, INTEGER005, 4
BOOLEAN006 = 1
Case "4"
InputInt "Version Registered", INTEGER006, 12
FSeek 2, 1194, 0
FWrite 2, INTEGER006, 4
BOOLEAN006 = 1
End Select
Goto LABEL023
:LABEL024
Case "Q"
BOOLEAN001 = 1
End Select
Goto LABEL002
:LABEL025
FClose 2
Return
:LABEL026
TSTRING011(0) = PPEPath() + "TRASH.BIN"
TSTRING011(1) = PPEPath() + "LBKALLOW.CAL"
TSTRING011(2) = PPEPath() + "LBKBKBAD.USR"
TSTRING011(3) = PPEPath() + "LBKBAD.NUM"
TSTRING011(4) = PPEPath() + "SYSOP.MSG"
TSTRING011(5) = PPEPath() + "USER.MSG"
TSTRING011(6) = PPEPath() + "LBKNMNU."
TSTRING011(7) = PPEPath() + "LBKBHLP."
TSTRING011(8) = PPEPath() + "LBKTABLE.LOK"
TSTRING011(9) = PPEPath() + "LBKBKBAD.SEC"
TSTRING011(10) = ""
TSTRING011(11) = ""
STRING009 = ""
STRING001 = ""
STRING005 = ""
STRING006 = ""
STRING007 = ""
STRING008 = "ATDT"
STRING010 = "1"
TBYTE011(0) = 0
TBYTE011(1) = 0
BYTE007 = 0
BOOLEAN002 = 0
BOOLEAN003 = 1
WORD002 = 182
INTEGER002 = 0
INTEGER003 = 0
BYTE001 = 3
WORD001 = 910
BYTE013 = 0
BYTE002 = 3
BYTE003 = 3
BYTE009 = 3
BYTE010 = 3
BYTE005 = 1
BYTE006 = 1
TBOOLEAN008(0) = 1
TBOOLEAN008(1) = 1
TBOOLEAN008(2) = 0
TBOOLEAN008(3) = 0
TBOOLEAN008(4) = 0
BYTE008 = 3
TBOOLEAN009(0) = 1
TBOOLEAN009(1) = 1
TBOOLEAN009(2) = 0
TBOOLEAN009(3) = 1
WORD003 = 18
BYTE012 = 0
BOOLEAN007 = 0
BOOLEAN010 = 0
BOOLEAN011 = 1
WORD004 = 4
BYTE004 = 10
BOOLEAN012 = 1
INTEGER007 = 0
INTEGER008 = 0
INT001 = 0
BOOLEAN013 = 1
BOOLEAN014 = 0
BYTE014 = 0
WORD005 = 0
Return
:LABEL027
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 8 Cls
; 399 Goto
; 281 Let
; 31 Print
; 221 PrintLn
; 213 If
; 4 DispFile
; 1 FCreate
; 1 FOpen
; 3 FClose
; 1 Log
; 32 InputStr
; 14 InputYN
; 21 InputInt
; 2 Gosub
; 4 Return
; 11 Newline
; 84 FSeek
; 45 FRead
; 110 FWrite
;
;
; ■ Functions used :
;
; 131 +
; 158 ==
; 6 <
; 6 <=
; 12 >=
; 213 !
; 12 &&
; 6 ||
; 17 Upper()
; 2 Space()
; 2 Ferr()
; 5 Chr()
; 19 Trim()
; 14 NoChar()
; 28 YesChar()
; 4 Strip()
; 21 String()
; 1 Mask_Num()
; 12 Mask_File()
; 12 Mask_Path()
; 6 Mask_Ascii()
; 17 PPEPath()
; 1 Exist()
; 2 Psa()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 6 For/Next
; 0 While/EndWhile
; 80 If/Then or If/Then/Else
; 17 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------